home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / gfa / procdure.lzh / SCREENS.LST < prev    next >
Encoding:
File List  |  1992-02-15  |  380 b   |  14 lines
  1. PROCEDURE screens(number%,VAR location%)
  2.   IF number%=0
  3.     ERASE screens|()
  4.     location%=0
  5.   ELSE IF DIM?(screens|())
  6.     location%=INT((VARPTR(screens|(0))+256)/256)*256+32256*(number%-1)
  7.   ELSE IF number%>0 AND FRE(0)>32256*number%+100
  8.     DIM screens|(32256*number%+100)
  9.     location%=INT((VARPTR(screens|(0))+256)/256)*256
  10.   ELSE
  11.     location%=0
  12.   ENDIF
  13. RETURN
  14.